MacWorld 1998 October/Macworld (1998-10).dmg/Serious Demos/Morpha/3DO.DXR/00048.ls

Text File | 1998-07-31 | 811 b | 37 lines

on push2
  global ca, flipper, ba, logo, logo2
  set ca to ca + 1
  repeat with i = 1 to 30
    if ca > 333 then
      set ca to 1
    end if
    if flipper = 1 then
      set the memberNum of sprite (i + 49) to 3000 + ca
      next repeat
    end if
    if ca > 333 then
      set ca to 1
    end if
    set ca to ca + 1
    set the memberNum of sprite (i + 49) to 3000 + ca
  end repeat
  if the visible of sprite 3 = 1 then
    set ba to ba + 1
    if ba > 33 then
      set ba to 1
    end if
    set the memberNum of sprite 3 to 549 + ba
  end if
  set logo to logo + 1
  if logo > 28 then
    set logo to 1
  end if
  set the memberNum of sprite 2 to 3350 + logo
  set logo2 to logo2 + 1
  if logo2 > 32 then
    set logo2 to 1
  end if
  set the memberNum of sprite 18 to 581 + logo2
  updateStage()
end